Option Explicit
Sub E_Sample007()
    'ո E_Data01u@
    Dim myRng1 As Range
    Dim myRng2 As Range
    Dim myCnt  As Long
    Dim myStr  As String
    Set myRng1 = Columns("A:I")				'jMӷd
    Set myRng2 = Range("K1:M2")   			'jMd
    'NjMJxsdW
    myRng2.Cells(1, 1) = myRng1.Cells(1, 3)		'mW 쪺w
    myRng2.Cells(1, 2) = myRng1.Cells(1, 6)		'ƾ
    myRng2.Cells(1, 3) = myRng1.Cells(1, 7)		'z
    myRng2.Cells(2, 1) = "*t*"					'mW]tutv
    myRng2.Cells(2, 2) = ">70"     				'ƾǤƶWL70
    myRng2.Cells(2, 3) = "<80"     				'zƤƤ80
    myCnt = WorksheetFunction.DCountA(myRng1, 1, myRng2)
    MsgBox "󪺸Ʀ" & myCnt & ""
    myRng2.Clear						'jM󪺧R
    Set myRng1 = Nothing					'
    Set myRng2 = Nothing
End Sub
